home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1007_CIntegerText < prev    next >
Encoding:
Text File  |  1992-04-08  |  523 b   |  26 lines
  1. %case uses%
  2. %case instance%
  3.     %if classname = CIntegerText%
  4.         %itemname%:%    %CAMIntegerText;
  5.     %else%
  6.         %itemname%:%    %%classname%;
  7.     %endif%
  8. %case create%
  9.     
  10.     New (%itemname%);
  11.     %itemname%.IViewRes ('%paneType%', %paneID%, %enclosure%, supervisor);
  12.     %if defined itsPanorama%
  13.         %set itsPanorama = itemname%
  14.     %endif%
  15. %case ProviderChanged%
  16.     %if window%
  17.     %else%
  18.         if aProvider = %itemname% then begin
  19.             if %itemname%->GetLength = 0 then begin
  20.                 {text is empty}
  21.             end else begin
  22.                 {there is some text}
  23.             end;
  24.         end;
  25.     %endif%
  26.